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PASSREAD_INTEGE Read an integer 16-Sep-1984 01:57:44 AX-11 Bliss-32 V Page 1 
° 1or8e8= 1382 12:51:47 PASRTL SREIPASREAINT. Ago, 31 . a) | 
; 1 0001 MODULE PASSREAD_INTEGER ( &TITLE ‘Read an integer’ 
; ¢ 0008 we = '1-002' ! File: PASREAINT.B32 Edit: SBL1002 
Pg 004 1 BEGIN 
3 5 B09 1! 
3 $ BaN8 ! gianna hacia 
Py 7 7 
; 8 0008 1 !* Sth: (c) 1978, 1980, 1982, 1984 BY * 
7. 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 Boo | is ALL RIGHTS RESERVED. * 
° ; 7 
4 \¢ 54 1 Ie ines fe ace IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor tee * 
3 1 001 1 '® ONLY IN ACCORDANCE WITH —E TERMS O SUCH LICENSE AND WITH THE * 
5 14 0014 1 i!* | ELUS10 F THE AB COPYRIGHT NOTICE. THIS SOFTWAR R N THE * 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE iS HEREBY * 
H \? SEA : » TRANSFERRED. * 
° 4 a 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $4 3 : is CORPORATION. * 
° ; 
: $¢ 0038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 25 0025 1 !* * 
3 26 0026 1 !* * 
; 27 QO27 1 eee eee eee RRR EEA EE 
: 28 0028 1! 
; 29 0029 1 
: 39 pot i i PACILITY P ws S t 
3 ! : ascal Language Suppor 
; & 0032 1 | ete te 
; 3 0033 1 ! ABSTRACT: 
4 34 0034 1! 
> 0035 1! This module contains procedures which read an integer 
$ $9 ie : from a textfile or a string. 
: Hs sit ; ENVIRONMENT: User mode - AST reentrant 
: 40 9040 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
; 4@ 0042 1 | MODIFIED BY: 
aa 0048 1: 
3 (44 0044 1 ! 1-001 = Original. SBL 1-April-1981 
3 45 0045 1 ! 1-002 - Use PAS$$END READ. SBL 24-May-1982 
; 46 0046 1 !-- 
: 47 0047 1 
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ROUTINE VALUE: 

The value of the integer read. 
SIDE EFFECTS: 

If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


INVSYNINT = invalid Be ore for integer value, 


NOTVALTYP = “’string’’ is not a value of type ‘‘type”’ 


PASSREAD_INTEGE Read an ONTee r 1-50 1384 91 gf: 44 AX-11 Bliss-32 V4.0-7 Page 3 
1-002 PASSREAD_INTEGER = Read integer from textfile 12: =3ep- 1986 2:51:47 PASRTL.SRCJPASREAINT. 3 231 (3) | 
8 ] XSBITL °PASSREAD INTEGER ~ Read integer from textfile’ 
8 GLOBAL ROUTINE PASSREAD_INT 
4 PF vi. "REF F $PASSPFV_FILE_VARIABLE, ' File variable 
5 ! Error unwind address 
86 = 
87 
88 '++ 
e ; FUNCTIONAL DESCRIPTION: 
91 i This function reads an integer from the specified textfile | 
2 and returns it as the function value. 
34 CALLING SEQUENCE: | 
3S Integer.wl.v = PASSREAD_INTEGER (PFV.mr.r C, ERROR.ja.rJ) 
98 FORMAL PARAMETERS: | 
100 i PFV - The Pascal File Variable (PFV) passed by reference. 
13) The structure of the PFV is defined in PASPFV.REQ. | 
10 i ERROR - Optional. If specified, the address to unwind to 
104 in case of an error. | 
IMPLICIT INPUTS: | 
NONE 
IMPLICIT OUTPUTS: 
| 
NONE 
i 
3 | 
| 
| 
i | 
: | 
i } 
i 
i | 
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BEGIN 
31 LOCAL 
3 RESULT, ' Result value 
3 DESCR: BLOCK [8 i Descriptor for convert 
34 FCB: REF $ SPASS# Bp ht BLOCK, i File Control block 
35 PFV_ADDR: V i Enable argument | 
36 UNWIND_ACT: La tice. ' Enable argument 
tH ERROR_ADDR: VOLATILE; ! Enable argument 
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PASSREAD_INTEGE Read an integer 16-Sep-1984 01:57:44 AX-11 Bliss-32 ¥4.0-74 Pa 4. 
1 PASSREAD_ INTEGER - Read integer from textfile 107300- 1384 9b:2t 329 PASRTL. RESPASREAINT B92: 1 a (3), 
BUILTIN | 
ACTUALCOUNT ; ! Count of arguments 
ENABLE | 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


14 
Get ERROR parameter, if present. 


IF ACTUALCOUNT () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVS$R_PFVJ; ! Set PFV address 


'¢ 
Validate PFV and get PFV. 


4 
Set unwind action to unlock file. 


PAAAAAMMANMNNNINI ES EEE TF 


oO oo 


| 
| 
| 
| 
| 
PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); | 
| 
UNWIND_ACT = PAS$K_UNWIND_UNLOCK; | 
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2 
; 
2 
2 
2 
2 
2 
2 
2 
2 
6 2 '} 
? § Do common initialization. 
7 2 
§ PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
7 2 RESULT = 0; 
7 2 
7 2 '¢ 
g § Set up string descriptor for convert call. 
7 2 
7 2 DESCR CDSC$B_CLASS] = DSCSK_CLASS_S; 
° 5 DESCR CDSCSB_DTYPE] = DSCSK_DTYPE_T; 
‘+ 
S 4 : ! Call utility routine to find a string that looks like an integer. 
: 2 2 If we can't find one, signal an error. 
$ ! 
48 IF NOT PASSSGET_INTEGER (PFV CPFVSR_PFV], FCB Sher FCB); 
r4 DESCR CDSCSA_POINTER], DESCR COSC$W_LENGTH), FCBY 
P 0251 S$PASSIO_ERROR (PASS$_INVSYNINT,2,DESCR, _ 
3 FCB CFCBSL_RECORD_NUMBERS): ! Invalid syntax for integer 
54 '+ 
$2? Call convert routine. If it fails, signal an error. 


PASSREAD_INTEGE Read an integer 1 
1 PASSREAD_INTEGER = Read integer from textfile 1 


+ 

Do end-of-READ processing. 

PASSSEND_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 
§ RETURN .RESULT; 
1 END; 


=3=DOOSCOOOCOOODODOOD 
SSOSRUF ARO OS SOUS 
Plelalolaololollot=letototototo) 


Rorerorornorfrorereonorerorerofrornor 


SNA AAA AA AAAI 
NRO CONAULS WOOO 


NMoPoToPONoNononenrnnn ee 


! End of 
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07 Q0000 P.AAA: .BYTE 
52. 45 47 45 54 4E 49 00001 ASCII 


O3FC 00000 
22 000000006 . 00002 
04 


0c 
6D 007D 


04 AE 08 

22 04 
000000006 
000000006 


1$: MOVL 


E 010€ 
; 000000006 
10 «AE 
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£44 1 Bliss-32 v4.0-74 
:47 _ LPASRTL. SRC JPASRE 


IF NOT OTSSCVT_TI_L (DESCR, RESULT) 
P SPAS$10_ERROR (PAS$_NOTVALTYP,3,DESCR, 
P UPLIT BYTE (XZCHARCOUNT(' INTEGER’), INTEGER"), 
FCB CFCBSL_RECORD_NUMBER]); ' Not a value 


routine PAS$READ_INTEGER 
PASSREAD_INTEGER Read an integer 
\1-002\ 


-PASSCODE,NOWRT, SHR, PIC,2 


7 
\INTEGER\ 


PASSREAD_INTECER 
PASSREADV_ INTEGER 


AS$$10_HANDLE 

PASSSVALIDATE_PFV 
PASSSINIT_READ, PASSSGET_ INTEGER 
PASSS$SIGNAL, PASS$K_INVSYRINT 
OTSSCVT_TI_L, PASSR_NOTVALTYP 
PASS$SEND_READ 


PASSREAD_INTEGER, Save R2,R3,R4,R5,R6,R7, 


R8,R 
PASSSSIGNAL, R9 


ERROR, ERROR_ADDR 
R6, PFV_ADDR 
PASSSVACIDATE_PFV 
#1, UN 
PASSSINIT_READ 
RESULT 

#270, DESCR+2 
PASS$GET_INTEGER 
4, DESCR+4 
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PASSREAD_INTEGE Read an integer 16-Sep :44 AX=11 Bliss-32 V4.0-74 Page 6 
1-002 PASSREAD_ INTEGER - Read integer from textfile  14-Sep 71384 93: af: 1:47 PASRTL. SRCIP PASREAINT. B32;1 . (3) | 
14 ag 9F 60055 PUSHAB DESCR : | i 
DD 28 PUSHL ; : 
ze 00G 8F 9A A MOVZBL M#PASS$K_INVSYNINT, =(SP) : | ; 
6 4 FB Q00SE CALLS #4, PASSSSIGNAL F : 
D 11 00061 BRE 4$° ; F 
E OD 0063 2$: USHL_  § : 0258. , 
14 AE 9F 0006 PUSHAB DESCR ; : 
000000006 00 9 FB 0068 CALLS TSSCVT_TI_L ; : 
14 E8 O006F BLBS f : 
C8 A? DD 0072 PUSHL Nite ; 0262 : 
80 AF 9F 0007 PUSHAB : : 
18 AE OF 9078 PUSHAB Dé scr : ; 
03 DD 00078 PUSHL # : : 
7E 006 8F 9A 00070 MOVZBL #PASSK NOTVALTYP, -(SP) : ; 
69 05 FB 00081 CALLS #5, PASS$SI i : 
OA 11 00084 BRB $ : 
000000006 00 16 00086 3s: JSB PASSSEND READ ; 0268 : 
0 6E DO 0008C MOVL ESULT, RO ; 0270 : 
04 0008F RET ; : 
50 D4 00090 4s: CLRL = RO ; 0272 : 
04 00098 RET ; : 
0000 00093 5s: -WORD Save nothing ; 0190 : 
50 08 AC DO 00095 MOVL  8(AP), RO ; : 
50 04 Ad 00 00099 MOVL  4(RO), RO : : 
EC AQ 9F 0009D PUSHAB ERROR_ADDR ; : 
FO AQ 9F OOOAOD PUSHAB UNWIND ACT : ; 
F4 AO 9F 000A3 PUSHAB PFV_ADBR ; : 
03 DD 0006 PUSHL #3 $ : 
5E DD 000A8 PUSHL SP ; : 
7E 04 AC 7D OOOAA MOVQ 4(AP), -(SP) : ; 
000000006 00 03 FB OOOAE CALLS #3, PASS$$IO_HANDLER ; : 
04 00085 RET ; : 


; Routine Size: 182 bytes, Routine Base: _PASSCODE + 0008 


; 22 0273 (1 
.. evs 0274 1 !<BLF/PAGE> 
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1-002 PASSREADV. INTEGER - Read integer from string 1 ~Sep-19 4 9b52t 34 EPASRTL -SRCIPASREAINT .B 231 vi (4) 


PFV: SPASSPFV_FILE_VARIABLE, 
R ' Result value 
' Argument List 
' Enable argument 
' Enable argument 
! Enable argument 
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: 215 75 1 ZSBTTL 'PASSREADV INTEGER - Read integer from string’ 
; 18 6 1 GLOBAL ROUTINE PASSREADV_INTEGER ( 
s 2} a STRING: REF BLOCR C, BYTE], ! String descriptor | 
; 218 78 #1 ERROR ! Error unwind address 

; 219 79 «1 = 

3 0 0 1 
4 1 1 1 '4¢ | 
4 ¢ 9 B¢ : FUNCTIONAL DESCRIPTION: 

; 4 0284 1: This function reads an integer from the specified string 

3 5 8 82 : and returns it as the function value. 

: $ 0287 1 ! CALLING SEQUENCE: 

$ § 8 pees B 

; , 8 34 ) Integer.wl.v = PASSREADV_INTEGER (STRING.mt.ds C, ERROR. ja.rJ) 

; 1 0291 1 ' FORMAL PARAMETERS: 
3 3 0 3 7.2 
3 3 0295 1! STRING - The string to read from, passed as a class S$ 
> 234 0294 1! (assumed) descriptor. the Length and pointer 
3 $3, 8S92 ' } are updated to reflect the unread string. | 
s €or 0297 1! ERROR - Optional. If specified, the address to unwind to | 
; 238 0298 1! in case of an error. 

; 239 54-44 1! 

3 40 0300 1 ! IMPLICIT INPUTS: 

: 241 0301 1! 
5 ste b308 1! NONE 

° 24 030 7 3 
3; 246 0304 1 ! IMPLICIT OUTPUTS: 

; 245 0305 1! 

; 246 0306 1! NONE 

: 247 0307 1! 

: 248 0308 1 ! ROUTINE VALUE: 

; 249 0309 1! 
; 250 0310 1! The value of the integer read. 
s 21 0311 1! 

3 $26 bai§ 1 ! SIDE EFFECTS: 
; 25 0315 1! 
: 254 0314 1! NONE 
3; 22 0315 1! 
3; 256 0316 1 ! SIGNALLED ERRORS: 

3 gor 0317 1! 
; 58 0318 1! See PASSREAD_INTEGER 

3; 259 0319 1! 

; 260 0320 1 !-- 

s 26l 0321 1 
; 6¢ 032 BEGIN 

: 26 03 
: 264 03 LOCAL . f 

3; 265 be ' Pascal File Variable 

: 83 

3 $3 

; 03 

3 0 


—OOOnNOUS who 


Wo PoPonononofry 


hororeronorny 
pe Se 
—OOomon 


H 8 
PASSREAD_INTEGE Read an integer 16-Sep-1984 01:57:44 AX=-11 Bliss-32 V4.0-74 P 
at PASSREADV. INTEGER - Read integer from string 12286871382 pre PASRTL.SRCJPASREAINT .B52;1 hg a) 
; 27 3 BUILTIN | 
: fF ACTUALCOUNT; ! Count of arguments 
: 275 5 ENABLE 
: re 8 § PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 278 7 ‘4 
6 46 jt ERROR parameter, if present. 
; Bg 0548 IF ACTUALCOUNT () GEQU 2 | 
3 4 0 4h ERROR_ADDR = .ERROR; ! Set unwind address 
; 286 0346 PFV_ADDR = PFV CPFVSR_PFV]; ! Set PFV address 
; 287 034 | 
; 288 0348 ‘+ 
; 289 Ben ! Set up ARG_LIST. 
; 290 0350 te 
ev) 0351 
: 3¢ Be26 ARG_LIST (0) = 1; ! One argument 
; 29 035 ARG-LIST C1) = PFV CPFVSR_PFV); | PFV address 
> 294 0354 
; 295 0355 ‘4 
; 296 0356 ' Call PAS$$DO_READV to do the work, giving it the address of 
: 297 0357 ! PASSREAD_INTEGER to call. 
: 589 0359 a 
: $30 0360 PAS$$DO_READV (PFV CPFV$R_PFV], .STRING, ARG_LIST, PASSREAD_INTEGER; 
; 301 0361 RESOLT); 
; o 0366 
; w 036 RETURN .RESULT; 
3 Soe 0364 
; 305 0365 1 END; ! End of routine PASSREADV_INTEGER 


.EXTRN PASS$SDO_READV 


005¢ 00000 .ENTRY PASSREADV_INTEGER, Save R2,R3,R4,R6 : 0276 
5E 30 C2 90002 SUBL2 #32, SP ; 
E D4 0000 CLRL -ERROR_ADDR > 0322 
ooo AE FE 0007 SLRG UNWIN act a 
02 6c 91 itd CMPB (AP), #2 ; 0342 | 
04 1F 00012 BLSSU _1$ F 
6E 08 AC DO 00014 MOVL ERROR, ERROR_ADDR + 0344 
08 AE 14 AE 4 0018 1$: MOVAB PFV, PFV_ADDR > 0346 
OC AE 01 pO 00010 MOVL #1, ARG_CIST : 0 28 
10 AE 146 AE 9E 00021 MOVAB PFV, ARG_LIST+4 > 035 
54 FF20 CF 9E 6 6 MOVAB PASSREAD-INTEGER, R4 : 0360 
53 C AE 9E 00028 MOVAB ARG_LIST> R3 : | 
56 14 AE 3 O02F MOVAB ; 
52 06 AC D 6 : MOVL STRING, R2 F 
000000006 00 16 JSB PAS$$D0_READV : 
4 00030 RET : 0365 
0000 O003E 2%: -WORD Save nothing ; 0322 


) 
8 
PASSREAD_INTEGE Read an integer 1b-g Sep-1984 744 AX-11 Bliss-32 V Page 9 
1-008 PASSREADV. INTEGER = Read integer from op 14-Sep 71382 93:3 747 PASRTL.SR RC IP PASREA Ar BS2: 1 . (4) | 
A 40 MOVL B(AP), R 3 
3 v4 A BO Gages MOVL 4(R0O), Ro § 
43 A 048 PUSHAB ERROR_ADDR 3 
E A f 4B PUSHAB UNWIND_ACT 3 
E46 A F 4 PUSHAB PFV_ADBR : 
93 Dd 0005 PUSHL #3 ; | 
E 0D Bee PUSHL SP : 
7E 04 as D 000 Ova 4(AP), 3 
000000006 00 03 FB 00059 CALLS #3, PA s$$10, HANDLER : 
04 00060 ET : 
; Routine Size: 97 bytes, Routine Base: _PASSCODE + OOBE 


$08 0366 1 
07 0367 1 !<BLF/PAGE> 
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2 Soe ee 


PSECT SUMMARY 


Run Time 00:07. 


Sleseed Tine: 0 T 4% 
Lines/CPU Min: 104 

12965 
84 pages 


eee Ae gag 
Y Used: 
ee ation Complete 


8 
1b-Sen-1984 01:57:44 


AX-11 Bliss-32 V 
PASRTL.SRC PASREA 


! End of module PASSREAD_INTEGER 


NT 88231 


: Name Bytes Attributes 
: PASSCODE 287 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; sccesces Syabols oooeceo= Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 
; _$255$DUA28:CPASRTL.OBJIJPASLIB.L32;1 427 99 23 33 00:00.4 
; COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:PASREAINT /0BJ=0BJ$:PASREAINT MSRC$:PASREAINT/UPDATE=(ENH$:PASREAINT 
Size 279 code + 8 data bytes 


v 
pa 
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